home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmpenv.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
45KB
|
2,153 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "cmpenv.h"
init_cmpenv(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
VV[0]->s.s_stype=(short)stp_special;
if(VV[0]->s.s_dbind == OBJNULL){
VV[0]->s.s_dbind = Cnil;}
VV[1]->s.s_stype=(short)stp_special;
if(VV[1]->s.s_dbind == OBJNULL){
VV[1]->s.s_dbind = Cnil;}
VV[2]->s.s_stype=(short)stp_special;
if(VV[2]->s.s_dbind == OBJNULL){
VV[2]->s.s_dbind = Cnil;}
VV[4]->s.s_stype=(short)stp_special;
if(VV[4]->s.s_dbind == OBJNULL){
VV[4]->s.s_dbind = VV[3];}
VV[6]->s.s_stype=(short)stp_special;
if(VV[6]->s.s_dbind == OBJNULL){
VV[6]->s.s_dbind = VV[5];}
MF(VV[111],L1,start,size,data);
VV[7]->s.s_stype=(short)stp_special;
if(VV[7]->s.s_dbind == OBJNULL){
VV[7]->s.s_dbind = VV[5];}
VV[8]->s.s_stype=(short)stp_special;
if(VV[8]->s.s_dbind == OBJNULL){
VV[8]->s.s_dbind = VV[5];}
VV[9]->s.s_stype=(short)stp_special;
if(VV[9]->s.s_dbind == OBJNULL){
VV[9]->s.s_dbind = VV[10];}
VV[11]->s.s_stype=(short)stp_special;
if(VV[11]->s.s_dbind == OBJNULL){
VV[11]->s.s_dbind = VV[5];}
MM(VV[112],L2,start,size,data);
MF(VV[113],L3,start,size,data);
MF(VV[114],L4,start,size,data);
MF(VV[115],L5,start,size,data);
MM(VV[116],L6,start,size,data);
MM(VV[117],L7,start,size,data);
VV[35]->s.s_stype=(short)stp_special;
if(VV[35]->s.s_dbind == OBJNULL){
VV[35]->s.s_dbind = Ct;}
VV[36]->s.s_stype=(short)stp_special;
if(VV[36]->s.s_dbind == OBJNULL){
VV[36]->s.s_dbind = Cnil;}
VV[25]->s.s_stype=(short)stp_special;
if(VV[25]->s.s_dbind == OBJNULL){
VV[25]->s.s_dbind = Cnil;}
MF(VV[118],L8,start,size,data);
MF(VV[119],L9,start,size,data);
MF(VV[120],L10,start,size,data);
MF(VV[121],L11,start,size,data);
MF(VV[122],L12,start,size,data);
MF(VV[123],L13,start,size,data);
MF(VV[124],L14,start,size,data);
MF(VV[125],L15,start,size,data);
VV[48]->s.s_stype=(short)stp_special;
if(VV[48]->s.s_dbind == OBJNULL){
VV[48]->s.s_dbind = Cnil;}
VV[49]->s.s_stype=(short)stp_special;
if(VV[49]->s.s_dbind == OBJNULL){
VV[49]->s.s_dbind = Cnil;}
MF(VV[126],L16,start,size,data);
MM(VV[127],L17,start,size,data);
VV[52]->s.s_stype=(short)stp_special;
if(VV[52]->s.s_dbind == OBJNULL){
VV[52]->s.s_dbind = Cnil;}
VV[28]->s.s_stype=(short)stp_special;
if(VV[28]->s.s_dbind == OBJNULL){
VV[28]->s.s_dbind = Cnil;}
MF(VV[128],L18,start,size,data);
MF(VV[129],L19,start,size,data);
MF(VV[130],L20,start,size,data);
MF(VV[131],L21,start,size,data);
MF(VV[132],L22,start,size,data);
(void)(putprop(VV[92],VV[93],VV[94]));
MF(VV[93],L24,start,size,data);
MF(VV[133],L25,start,size,data);
MF(VV[134],L26,start,size,data);
vs_top=vs_base=base;
}
/* function definition for INIT-ENV */
static L1()
{ register object *base=vs_base;
register object *sup=base+VM3;
vs_reserve(VM3);
check_arg(0);
vs_top=sup;
TTL:;
setq(VV[7],VV[5]);
setq(VV[8],VV[5]);
setq(VV[9],VV[10]);
setq(VV[11],VV[5]);
setq(VV[12],VV[5]);
setq(VV[13],Cnil);
setq(VV[14],Cnil);
setq(VV[15],Cnil);
setq(VV[16],Cnil);
setq(VV[17],Cnil);
setq(VV[18],Cnil);
setq(VV[19],Cnil);
setq(VV[20],Cnil);
setq(VV[21],Cnil);
setq(VV[22],symbol_value(VV[23]));
setq(VV[24],Cnil);
setq(VV[25],Cnil);
setq(VV[26],Cnil);
setq(VV[27],VV[5]);
setq(VV[28],Cnil);
base[0]= Cnil;
vs_top=(vs_base=base+0)+1;
return;
}
/* macro definition for NEXT-CFUN */
static L2()
{ register object *base=vs_base;
register object *sup=base+VM4;
vs_reserve(VM4);
check_arg(2);
vs_top=sup;
{object V1=base[0]->c.c_cdr;
if(!endp(V1))invalid_macro_call();}
base[2]= VV[29];
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for ADD-SYMBOL */
static L3()
{ register object *base=vs_base;
register object *sup=base+VM5;
vs_reserve(VM5);
check_arg(1);
vs_top=sup;
TTL:;
{object x= base[0],V2= symbol_value(VV[13]);
while(!endp(V2))
if(eql(x,car(V2->c.c_car))){
base[1]= (V2->c.c_car);
goto T57;
}else V2=V2->c.c_cdr;
base[1]= Cnil;}
T57:;
if((base[1])==Cnil){
goto T59;}
base[2]= cadr(base[1]);
vs_top=(vs_base=base+2)+1;
return;
T59:;
setq(VV[9],number_plus(symbol_value(VV[9]),VV[30]));
base[2]= list(2,base[0],symbol_value(VV[9]));
setq(VV[13],make_cons(base[2],symbol_value(VV[13])));
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[135],base+2,1);
base[2]= symbol_value(VV[9]);
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for ADD-OBJECT */
static L4()
{ register object *base=vs_base;
register object *sup=base+VM6;
vs_reserve(VM6);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
base[2]= base[0];
if((simple_symlispcall_no_event(VV[136],base+2,1))==Cnil){
goto T68;}
setq(VV[9],number_plus(symbol_value(VV[9]),VV[30]));
setq(VV[31],make_cons(symbol_value(VV[9]),symbol_value(VV[31])));
base[2]=symbol_function(VV[135]);
base[4]= base[0];
base[3]= simple_symlispcall_no_event(VV[137],base+4,1);
(void)simple_lispcall_no_event(base+2,1);
base[2]= symbol_value(VV[9]);
vs_top=(vs_base=base+2)+1;
return;
T68:;
{object x= base[0],V3= symbol_value(VV[13]);
while(!endp(V3))
if(eql(x,car(V3->c.c_car))){
base[1]= (V3->c.c_car);
goto T81;
}else V3=V3->c.c_cdr;
base[1]= Cnil;}
T81:;
if((base[1])==Cnil){
goto T79;}
base[2]= cadr(base[1]);
vs_top=(vs_base=base+2)+1;
return;
T79:;
setq(VV[9],number_plus(symbol_value(VV[9]),VV[30]));
base[2]= list(2,base[0],symbol_value(VV[9]));
setq(VV[13],make_cons(base[2],symbol_value(VV[13])));
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[135],base+2,1);
base[2]= symbol_value(VV[9]);
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for ADD-CONSTANT */
static L5()
{ register object *base=vs_base;
register object *sup=base+VM7;
vs_reserve(VM7);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
{object x= base[0],V4= symbol_value(VV[14]);
while(!endp(V4))
if(eql(x,car(V4->c.c_car))){
base[1]= (V4->c.c_car);
goto T91;
}else V4=V4->c.c_cdr;
base[1]= Cnil;}
T91:;
if((base[1])==Cnil){
goto T89;}
base[2]= cadr(base[1]);
vs_top=(vs_base=base+2)+1;
return;
T89:;
setq(VV[9],number_plus(symbol_value(VV[9]),VV[30]));
setq(VV[31],make_cons(symbol_value(VV[9]),symbol_value(VV[31])));
base[2]=symbol_function(VV[135]);
base[4]= make_cons(VV[32],base[0]);
base[3]= simple_symlispcall_no_event(VV[137],base+4,1);
(void)simple_lispcall_no_event(base+2,1);
base[2]= list(2,base[0],symbol_value(VV[9]));
setq(VV[14],make_cons(base[2],symbol_value(VV[14])));
base[2]= symbol_value(VV[9]);
vs_top=(vs_base=base+2)+1;
return;
}
/* macro definition for NEXT-CVAR */
static L6()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
check_arg(2);
vs_top=sup;
{object V5=base[0]->c.c_cdr;
if(!endp(V5))invalid_macro_call();}
base[2]= VV[33];
vs_top=(vs_base=base+2)+1;
return;
}
/* macro definition for NEXT-CMACRO */
static L7()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
check_arg(2);
vs_top=sup;
{object V6=base[0]->c.c_cdr;
if(!endp(V6))invalid_macro_call();}
base[2]= VV[34];
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for FUNCTION-ARG-TYPES */
static L8()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
{object V7;
V7= base[0];
T103:;
if(endp((V7))){
goto T105;}
{object x= car((V7)),V8= VV[37];
while(!endp(V8))
if(eql(x,V8->c.c_car)){
goto T108;
}else V8=V8->c.c_cdr;
goto T104;}
T108:;
T105:;
base[2]= reverse(base[1]);
vs_top=(vs_base=base+2)+1;
return;
T104:;
base[3]= car((V7));
base[2]= simple_symlispcall_no_event(VV[138],base+3,1);
base[1]= make_cons(base[2],base[1]);
V7= cdr((V7));
goto T103;}
}
/* function definition for FUNCTION-RETURN-TYPE */
static L9()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
check_arg(1);
vs_top=sup;
TTL:;
if(!(endp(base[0]))){
goto T118;}
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;
T118:;
if(!(type_of(car(base[0]))==t_cons)){
goto T121;}
if(!(caar(base[0])==VV[38])){
goto T121;}
if(endp(cdr(base[0]))){
goto T126;}
base[1]= VV[39];
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[139],base+1,2);
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;
T126:;
if(endp(cdar(base[0]))){
goto T131;}
{object x= cadar(base[0]),V9= VV[40];
while(!endp(V9))
if(eql(x,V9->c.c_car)){
goto T135;
}else V9=V9->c.c_cdr;
goto T132;}
T135:;
T131:;
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;
T132:;
base[1]= cadar(base[0]);
symlispcall_no_event(VV[138],base+1,1);
return;
T121:;
base[1]= car(base[0]);
symlispcall_no_event(VV[138],base+1,1);
return;
}
/* function definition for ADD-FUNCTION-PROCLAMATION */
static L10()
{ register object *base=vs_base;
register object *sup=base+VM12;
vs_reserve(VM12);
check_arg(3);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_symbol)){
goto T139;}
base[4]= base[1];
vs_top=(vs_base=base+4)+1;
L8();
vs_top=sup;
base[3]= vs_base[0];
(void)(putprop(base[0],base[3],VV[41]));
base[4]= base[2];
vs_top=(vs_base=base+4)+1;
L9();
vs_top=sup;
base[3]= vs_base[0];
(void)(putprop(base[0],base[3],VV[42]));
if(endp(base[2])){
goto T148;}
if(!(endp(cdr(base[2])))){
goto T148;}
if(!(type_of(car(base[2]))==t_cons)){
goto T147;}
if(!(caar(base[2])==VV[38])){
goto T147;}
if(endp(cdar(base[2]))){
goto T148;}
if(!(endp(cddar(base[2])))){
goto T148;}
T147:;
base[3]= putprop(base[0],Ct,VV[43]);
vs_top=(vs_base=base+3)+1;
return;
T148:;
base[3]= remprop(base[0],VV[43]);
vs_top=(vs_base=base+3)+1;
return;
T139:;
base[3]= VV[44];
base[4]= base[0];
symlispcall_no_event(VV[139],base+3,2);
return;
}
/* function definition for ADD-FUNCTION-DECLARATION */
static L11()
{ register object *base=vs_base;
register object *sup=base+VM13;
vs_reserve(VM13);
check_arg(3);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_symbol)){
goto T163;}
base[4]= base[0];
base[3]= simple_symlispcall_no_event(VV[140],base+4,1);
base[5]= base[1];
vs_top=(vs_base=base+5)+1;
L8();
vs_top=sup;
base[4]= vs_base[0];
base[6]= base[2];
vs_top=(vs_base=base+6)+1;
L9();
vs_top=sup;
base[5]= vs_base[0];
base[6]= list(3,base[3],base[4],base[5]);
setq(VV[25],make_cons(base[6],symbol_value(VV[25])));
base[3]= symbol_value(VV[25]);
vs_top=(vs_base=base+3)+1;
return;
T163:;
base[3]= VV[45];
base[4]= base[0];
symlispcall_no_event(VV[139],base+3,2);
return;
}
/* function definition for GET-ARG-TYPES */
static L12()
{ register object *base=vs_base;
register object *sup=base+VM14;
vs_reserve(VM14);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
{object x= base[0],V10= symbol_value(VV[25]);
while(!endp(V10))
if(eql(x,car(V10->c.c_car))){
base[1]= (V10->c.c_car);
goto T177;
}else V10=V10->c.c_cdr;
base[1]= Cnil;}
T177:;
if((base[1])==Cnil){
goto T175;}
base[2]= cadr(base[1]);
vs_top=(vs_base=base+2)+1;
return;
T175:;
base[2]= get(base[0],VV[41],Cnil);
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for GET-RETURN-TYPE */
static L13()
{ register object *base=vs_base;
register object *sup=base+VM15;
vs_reserve(VM15);
check_arg(1);
vs_top=sup;
TTL:;
{object x= base[0],V11= symbol_value(VV[25]);
while(!endp(V11))
if(eql(x,car(V11->c.c_car))){
base[1]= (V11->c.c_car);
goto T178;
}else V11=V11->c.c_cdr;
base[1]= Cnil;}
T178:;
if((base[1])==Cnil){
goto T181;}
base[2]= caddr(base[1]);
goto T179;
T181:;
base[2]= get(base[0],VV[42],Cnil);
T179:;
if((base[2])==Cnil){
goto T184;}
base[3]= get(base[0],VV[46],Cnil);
if((base[3])==Cnil){
goto T188;}
base[4]= base[3];
base[5]= base[2];
base[3]= simple_symlispcall_no_event(VV[141],base+4,2);
if((base[3])==Cnil){
goto T191;}
vs_top=(vs_base=base+3)+1;
return;
T191:;
base[4]= VV[47];
base[5]= base[0];
symlispcall_no_event(VV[142],base+4,2);
return;
T188:;
vs_top=(vs_base=base+2)+1;
return;
T184:;
base[3]= get(base[0],VV[46],Cnil);
vs_top=(vs_base=base+3)+1;
return;
}
/* function definition for GET-LOCAL-ARG-TYPES */
static L14()
{ register object *base=vs_base;
register object *sup=base+VM16;
vs_reserve(VM16);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
{object x= base[0],V12= symbol_value(VV[25]);
while(!endp(V12))
if(eql(x,car(V12->c.c_car))){
base[1]= (V12->c.c_car);
goto T201;
}else V12=V12->c.c_cdr;
base[1]= Cnil;}
T201:;
if((base[1])==Cnil){
goto T199;}
base[2]= cadr(base[1]);
vs_top=(vs_base=base+2)+1;
return;
T199:;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for GET-LOCAL-RETURN-TYPE */
static L15()
{ register object *base=vs_base;
register object *sup=base+VM17;
vs_reserve(VM17);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
{object x= base[0],V13= symbol_value(VV[25]);
while(!endp(V13))
if(eql(x,car(V13->c.c_car))){
base[1]= (V13->c.c_car);
goto T205;
}else V13=V13->c.c_cdr;
base[1]= Cnil;}
T205:;
if((base[1])==Cnil){
goto T203;}
base[2]= caddr(base[1]);
vs_top=(vs_base=base+2)+1;
return;
T203:;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for RESET-TOP */
static L16()
{ register object *base=vs_base;
register object *sup=base+VM18;
vs_reserve(VM18);
check_arg(0);
vs_top=sup;
TTL:;
princ_str("vs_top=sup;",VV[50]);
setq(VV[48],Ct);
base[0]= Ct;
vs_top=(vs_base=base+0)+1;
return;
}
/* macro definition for BASE-USED */
static L17()
{ register object *base=vs_base;
register object *sup=base+VM19;
vs_reserve(VM19);
check_arg(2);
vs_top=sup;
{object V14=base[0]->c.c_cdr;
if(!endp(V14))invalid_macro_call();}
base[2]= VV[51];
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for INLINE-POSSIBLE */
static L18()
{ register object *base=vs_base;
register object *sup=base+VM20;
vs_reserve(VM20);
check_arg(1);
vs_top=sup;
TTL:;
if(symbol_value(VV[2])!=Cnil){
base[1]= symbol_value(VV[2]);
goto T209;}
{object x= base[0],V15= symbol_value(VV[28]);
while(!endp(V15))
if(eql(x,V15->c.c_car)){
base[2]= V15;
goto T211;
}else V15=V15->c.c_cdr;
base[2]= Cnil;}
T211:;
if(base[2]==Cnil)goto T210;
base[1]= base[2];
goto T209;
T210:;
base[1]= get(base[0],VV[53],Cnil);
T209:;
base[2]= ((base[1])==Cnil?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for PROCLAIM */
static L19()
{ register object *base=vs_base;
register object *sup=base+VM21;
vs_reserve(VM21);
check_arg(1);
vs_top=sup;
TTL:;
{object V16= car(base[0]);
if((V16!= VV[143]))goto T213;
{object V17;
object V18;
V17= cdr(base[0]);
V18= car((V17));
T217:;
if(!(endp((V17)))){
goto T218;}
goto T212;
T218:;
if(!(type_of((V18))==t_symbol)){
goto T224;}
base[1]= (V18);
(void)simple_symlispcall_no_event(VV[144],base+1,1);
goto T222;
T224:;
base[1]= VV[54];
base[2]= (V18);
(void)simple_symlispcall_no_event(VV[139],base+1,2);
T222:;
V17= cdr((V17));
V18= car((V17));
goto T217;}
T213:;
if((V16!= VV[145]))goto T234;
base[1]= cdr(base[0]);
base[2]= car(base[1]);
T238:;
if(!(endp(base[1]))){
goto T239;}
goto T212;
T239:;
if(!(type_of(base[2])==t_symbol)){
goto T243;}
base[2]= list(2,base[2],VV[3]);
T243:;
if(!(type_of(base[2])==t_cons)){
goto T248;}
if(!(type_of(cdr(base[2]))==t_cons)){
goto T248;}
if(!(type_of(cadr(base[2]))==t_fixnum||
type_of(cadr(base[2]))==t_bignum||
type_of(cadr(base[2]))==t_ratio||
type_of(cadr(base[2]))==t_shortfloat||
type_of(cadr(base[2]))==t_longfloat||
type_of(cadr(base[2]))==t_complex)){
goto T248;}
base[3]= VV[5];
base[4]= cadr(base[2]);
base[5]= VV[3];
vs_top=(vs_base=base+3)+3;
Lmonotonically_nondecreasing();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T249;}
T248:;
base[3]= VV[55];
base[4]= base[2];
(void)simple_symlispcall_no_event(VV[139],base+3,2);
goto T247;
T249:;
{object V19= car(base[2]);
if((V19!= VV[81]))goto T262;
setq(VV[1],(number_compare(cadr(base[2]),VV[30])>=0?Ct:Cnil));
setq(VV[0],(number_compare(cadr(base[2]),VV[56])>=0?Ct:Cnil));
setq(VV[2],(number_compare(cadr(base[2]),VV[3])>=0?Ct:Cnil));
goto T247;
T262:;
if((V19!= VV[82]))goto T268;
setq(VV[6],cadr(base[2]));
goto T247;
T268:;
if((V19!= VV[146]))goto T270;
setq(VV[4],cadr(base[2]));
goto T247;
T270:;
if((V19!= VV[147]))goto T272;
setq(VV[4],number_minus(VV[3],cadr(base[2])));
goto T247;
T272:;
base[3]= VV[57];
base[4]= car(base[2]);
(void)simple_symlispcall_no_event(VV[139],base+3,2);}
T247:;
base[1]= cdr(base[1]);
base[2]= car(base[1]);
goto T238;
T234:;
if((V16!= VV[148]))goto T281;
if(!(type_of(cdr(base[0]))==t_cons)){
goto T283;}
base[1]= cadr(base[0]);
base[2]= cddr(base[0]);
vs_top=(vs_base=base+1)+2;
L20();
vs_top=sup;
goto T212;
T283:;
base[1]= VV[58];
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[139],base+1,2);
goto T212;
T281:;
if((V16!= VV[149])
&& (V16!= VV[150])
&& (V16!= VV[151])
&& (V16!= VV[152]))goto T289;
base[1]= car(base[0]);
base[2]= cdr(base[0]);
vs_top=(vs_base=base+1)+2;
L20();
vs_top=sup;
goto T212;
T289:;
if((V16!= VV[153]))goto T292;
if(endp(cdr(base[0]))){
goto T293;}
if(!(type_of(cadr(base[0]))==t_cons)){
goto T293;}
if(!(caadr(base[0])==VV[59])){
goto T293;}
if(!(endp(cdadr(base[0])))){
goto T294;}
T293:;
base[1]= VV[60];
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[139],base+1,2);
goto T212;
T294:;
{object V20;
object V21;
V20= cddr(base[0]);
V21= car((V20));
T307:;
if(!(endp((V20)))){
goto T308;}
goto T212;
T308:;
base[1]= (V21);
base[2]= cadadr(base[0]);
base[3]= cddadr(base[0]);
vs_top=(vs_base=base+1)+3;
L10();
vs_top=sup;
V20= cdr((V20));
V21= car((V20));
goto T307;}
T292:;
if((V16!= VV[59]))goto T321;
if(endp(cdr(base[0]))){
goto T322;}
if(!(endp(cddr(base[0])))){
goto T323;}
T322:;
base[1]= VV[61];
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[139],base+1,2);
goto T212;
T323:;
base[1]= cadr(base[0]);
base[2]= caddr(base[0]);
base[3]= cdddr(base[0]);
vs_top=(vs_base=base+1)+3;
L10();
vs_top=sup;
goto T212;
T321:;
if((V16!= VV[86]))goto T332;
{object V22;
object V23;
V22= cdr(base[0]);
V23= car((V22));
T336:;
if(!(endp((V22)))){
goto T337;}
goto T212;
T337:;
if(!(type_of((V23))==t_symbol)){
goto T343;}
(void)(remprop((V23),VV[53]));
goto T341;
T343:;
base[1]= VV[62];
base[2]= (V23);
(void)simple_symlispcall_no_event(VV[139],base+1,2);
T341:;
V22= cdr((V22));
V23= car((V22));
goto T336;}
T332:;
if((V16!= VV[88]))goto T352;
{object V24;
object V25;
V24= cdr(base[0]);
V25= car((V24));
T356:;
if(!(endp((V24)))){
goto T357;}
goto T212;
T357:;
if(!(type_of((V25))==t_symbol)){
goto T363;}
(void)(putprop((V25),Ct,VV[53]));
goto T361;
T363:;
base[1]= VV[63];
base[2]= (V25);
(void)simple_symlispcall_no_event(VV[139],base+1,2);
T361:;
V24= cdr((V24));
V25= car((V24));
goto T356;}
T352:;
if((V16!= VV[78])
&& (V16!= VV[154]))goto T372;
{object V26;
object V27;
V26= cdr(base[0]);
V27= car((V26));
T376:;
if(!(endp((V26)))){
goto T377;}
goto T212;
T377:;
if(type_of((V27))==t_symbol){
goto T381;}
base[1]= VV[64];
base[2]= (V27);
(void)simple_symlispcall_no_event(VV[139],base+1,2);
T381:;
V26= cdr((V26));
V27= car((V26));
goto T376;}
T372:;
if((V16!= VV[155]))goto T391;
{object V28;
object V29;
V28= cdr(base[0]);
V29= car((V28));
T395:;
if(!(endp((V28)))){
goto T396;}
goto T212;
T396:;
if(!(type_of((V29))==t_symbol)){
goto T402;}
{object x= (V29),V30= symbol_value(VV[52]);
while(!endp(V30))
if(eql(x,V30->c.c_car)){
goto T400;
}else V30=V30->c.c_cdr;}
setq(VV[52],make_cons((V29),symbol_value(VV[52])));
goto T400;
T402:;
base[1]= VV[65];
base[2]= (V29);
(void)simple_symlispcall_no_event(VV[139],base+1,2);
T400:;
V28= cdr((V28));
V29= car((V28));
goto T395;}
T391:;
if((V16== VV[156])
|| (V16== VV[157])
|| (V16== VV[158])
|| (V16== VV[159])
|| (V16== VV[160]))goto T415;
if((V16== VV[150])
|| (V16== VV[161])
|| (V16== VV[162])
|| (V16== VV[163])
|| (V16== VV[164]))goto T415;
if((V16== VV[165])
|| (V16== VV[149])
|| (V16== VV[166])
|| (V16== VV[167])
|| (V16== VV[168]))goto T415;
if((V16== VV[169])
|| (V16== VV[170])
|| (V16== VV[152])
|| (V16== Cnil)
|| (V16== VV[171]))goto T415;
if((V16== VV[172])
|| (V16== VV[173])
|| (V16== VV[174])
|| (V16== VV[175])
|| (V16== VV[176]))goto T415;
if((V16== VV[177])
|| (V16== VV[178])
|| (V16== VV[179])
|| (V16== VV[151])
|| (V16== VV[180]))goto T415;
if((V16== VV[181])
|| (V16== VV[182])
|| (V16== VV[183])
|| (V16== VV[184])
|| (V16== VV[185]))goto T415;
if((V16== VV[186])
|| (V16== VV[187])
|| (V16== VV[188])
|| (V16== VV[189])
|| (V16== Ct))goto T415;
if((V16!= VV[190])
&& (V16!= VV[191])
&& (V16!= VV[192]))goto T414;
T415:;
base[1]= car(base[0]);
base[2]= cdr(base[0]);
vs_top=(vs_base=base+1)+2;
L20();
vs_top=sup;
goto T212;
T414:;
{object x= car(base[0]),V31= symbol_value(VV[52]);
while(!endp(V31))
if(eql(x,V31->c.c_car)){
goto T212;
}else V31=V31->c.c_cdr;}
base[1]= VV[66];
base[2]= car(base[0]);
(void)simple_symlispcall_no_event(VV[139],base+1,2);}
T212:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for PROCLAIM-VAR */
static L20()
{ register object *base=vs_base;
register object *sup=base+VM22;
vs_reserve(VM22);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= base[0];
base[0]= simple_symlispcall_no_event(VV[138],base+2,1);
{object V32;
object V33;
V32= base[1];
V33= car((V32));
T428:;
if(!(endp((V32)))){
goto T429;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T429:;
if(!(type_of((V33))==t_symbol)){
goto T435;}
base[2]= get((V33),VV[67],Cnil);
base[4]= (V33);
base[3]= simple_symlispcall_no_event(VV[193],base+4,1);
if((base[2])==Cnil){
goto T443;}
base[4]= base[2];
base[5]= base[0];
base[2]= simple_symlispcall_no_event(VV[141],base+4,2);
goto T441;
T443:;
base[2]= base[0];
T441:;
if((base[3])==Cnil){
goto T447;}
base[4]= base[2];
base[5]= structure_ref(base[3],VV[68],5);
base[2]= simple_symlispcall_no_event(VV[141],base+4,2);
T447:;
if((base[2])!=Cnil){
goto T453;}
base[4]= VV[69];
base[5]= (V33);
(void)simple_symlispcall_no_event(VV[139],base+4,2);
T453:;
(void)(putprop((V33),base[2],VV[67]));
if((base[3])==Cnil){
goto T433;}
structure_set(base[3],VV[68],5,base[2]);
goto T433;
T435:;
base[2]= VV[70];
base[3]= (V33);
(void)simple_symlispcall_no_event(VV[139],base+2,2);
T433:;
V32= cdr((V32));
V33= car((V32));
goto T428;}
}
/* function definition for C1BODY */
static L21()
{ register object *base=vs_base;
register object *sup=base+VM23;
vs_reserve(VM23);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= Cnil;
base[3]= Cnil;
base[4]= Cnil;
base[5]= Cnil;
base[6]= Cnil;
base[7]= Cnil;
T470:;
if(!(endp(base[0]))){
goto T472;}
goto T468;
T472:;
base[8]= car(base[0]);
base[7]= simple_symlispcall_no_event(VV[194],base+8,1);
if(!(type_of(base[7])==t_string)){
goto T480;}
if((base[1])==Cnil){
goto T483;}
if(endp(cdr(base[0]))){
goto T483;}
if((base[6])==Cnil){
goto T482;}
T483:;
goto T468;
T482:;
base[6]= base[7];
goto T478;
T480:;
if(!(type_of(base[7])==t_cons)){
goto T491;}
if(!(car(base[7])==VV[71])){
goto T491;}
{object V34;
object V35;
V34= cdr(base[7]);
V35= car((V34));
T498:;
if(!(endp((V34)))){
goto T499;}
goto T478;
T499:;
if(!(type_of((V35))==t_cons)){
goto T504;}
if(type_of(car((V35)))==t_symbol){
goto T503;}
T504:;
base[8]= VV[72];
base[9]= (V35);
(void)simple_symlispcall_no_event(VV[195],base+8,2);
T503:;
{object V36= car((V35));
if((V36!= VV[143]))goto T511;
{object V37;
object V38;
V37= cdr((V35));
V38= car((V37));
T515:;
if(!(endp((V37)))){
goto T516;}
goto T510;
T516:;
if(type_of((V38))==t_symbol){
goto T520;}
base[8]= VV[73];
base[9]= (V35);
base[10]= (V38);
(void)simple_symlispcall_no_event(VV[195],base+8,3);
T520:;
base[2]= make_cons((V38),base[2]);
V37= cdr((V37));
V38= car((V37));
goto T515;}
T511:;
if((V36!= VV[154]))goto T533;
{object V39;
object V40;
V39= cdr((V35));
V40= car((V39));
T537:;
if(!(endp((V39)))){
goto T538;}
goto T510;
T538:;
if(type_of((V40))==t_symbol){
goto T542;}
base[8]= VV[74];
base[9]= (V35);
base[10]= (V40);
(void)simple_symlispcall_no_event(VV[195],base+8,3);
T542:;
base[3]= make_cons((V40),base[3]);
V39= cdr((V39));
V40= car((V39));
goto T537;}
T533:;
if((V36!= VV[148]))goto T555;
if(!(endp(cdr((V35))))){
goto T556;}
base[8]= VV[75];
base[9]= (V35);
(void)simple_symlispcall_no_event(VV[195],base+8,2);
T556:;
base[9]= cadr((V35));
base[8]= simple_symlispcall_no_event(VV[138],base+9,1);
if((base[8])==Cnil){
goto T510;}
{object V41;
object V42;
V41= cddr((V35));
V42= car((V41));
T568:;
if(!(endp((V41)))){
goto T569;}
goto T510;
T569:;
if(type_of((V42))==t_symbol){
goto T573;}
base[9]= VV[76];
base[10]= (V35);
base[11]= (V42);
(void)simple_symlispcall_no_event(VV[195],base+9,3);
T573:;
base[9]= make_cons((V42),base[8]);
base[4]= make_cons(base[9],base[4]);
V41= cdr((V41));
V42= car((V41));
goto T568;}
T555:;
if((V36!= VV[78]))goto T586;
{object V43;
object V44;
V43= cdr((V35));
V44= car((V43));
T590:;
if(!(endp((V43)))){
goto T591;}
goto T510;
T591:;
if(type_of((V44))==t_symbol){
goto T595;}
base[8]= VV[77];
base[9]= (V35);
base[10]= (V44);
(void)simple_symlispcall_no_event(VV[195],base+8,3);
T595:;
base[8]= make_cons((V44),VV[78]);
base[4]= make_cons(base[8],base[4]);
V43= cdr((V43));
V44= car((V43));
goto T590;}
T586:;
if((V36== VV[149])
|| (V36== VV[150])
|| (V36== VV[165])
|| (V36== VV[151])
|| (V36== VV[156]))goto T609;
if((V36== VV[157])
|| (V36== VV[158])
|| (V36== VV[159])
|| (V36== VV[160])
|| (V36== VV[161]))goto T609;
if((V36== VV[162])
|| (V36== VV[163])
|| (V36== VV[164])
|| (V36== VV[166])
|| (V36== VV[167]))goto T609;
if((V36== VV[168])
|| (V36== VV[169])
|| (V36== VV[170])
|| (V36== VV[152])
|| (V36== Cnil))goto T609;
if((V36== VV[171])
|| (V36== VV[172])
|| (V36== VV[173])
|| (V36== VV[174])
|| (V36== VV[175]))goto T609;
if((V36== VV[176])
|| (V36== VV[177])
|| (V36== VV[178])
|| (V36== VV[179])
|| (V36== VV[180]))goto T609;
if((V36== VV[181])
|| (V36== VV[182])
|| (V36== VV[183])
|| (V36== VV[184])
|| (V36== VV[185]))goto T609;
if((V36== VV[186])
|| (V36== VV[187])
|| (V36== VV[188])
|| (V36== VV[189])
|| (V36== Ct))goto T609;
if((V36!= VV[190])
&& (V36!= VV[191])
&& (V36!= VV[192]))goto T608;
T609:;
base[9]= car((V35));
base[8]= simple_symlispcall_no_event(VV[138],base+9,1);
if((base[8])==Cnil){
goto T510;}
{object V45;
object V46;
V45= cdr((V35));
V46= car((V45));
T617:;
if(!(endp((V45)))){
goto T618;}
goto T510;
T618:;
if(type_of((V46))==t_symbol){
goto T622;}
base[9]= VV[79];
base[10]= (V35);
base[11]= (V46);
(void)simple_symlispcall_no_event(VV[195],base+9,3);
T622:;
base[9]= make_cons((V46),base[8]);
base[4]= make_cons(base[9],base[4]);
V45= cdr((V45));
V46= car((V45));
goto T617;}
T608:;
base[5]= make_cons((V35),base[5]);}
T510:;
V34= cdr((V34));
V35= car((V34));
goto T498;}
T491:;
goto T468;
T478:;
base[8]= car(base[0]);
base[0]= cdr(base[0]);
goto T470;
T468:;
base[8]= base[0];
base[9]= base[2];
base[10]= base[4];
base[11]= base[3];
base[12]= base[5];
base[13]= base[6];
vs_top=(vs_base=base+8)+6;
return;
}
/* function definition for C1DECL-BODY */
static L22()
{ register object *base=vs_base;
register object *sup=base+VM24;
vs_reserve(VM24);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
base[2]= Cnil;
if((base[0])!=Cnil){
goto T652;}
base[3]= base[1];
symlispcall_no_event(VV[196],base+3,1);
return;
T652:;
bds_bind(VV[25],symbol_value(VV[25]));
bds_bind(VV[52],symbol_value(VV[52]));
bds_bind(VV[28],symbol_value(VV[28]));
bds_bind(VV[6],symbol_value(VV[6]));
{object V47;
object V48;
V47= base[0];
V48= car((V47));
T659:;
if(!(endp((V47)))){
goto T660;}
goto T655;
T660:;
{object V49= car((V48));
if((V49!= VV[145]))goto T665;
base[7]= cdr((V48));
base[8]= car(base[7]);
T669:;
if(!(endp(base[7]))){
goto T670;}
goto T664;
T670:;
if(!(type_of(base[8])==t_symbol)){
goto T674;}
base[8]= list(2,base[8],VV[3]);
T674:;
if(!(type_of(base[8])==t_cons)){
goto T679;}
if(!(type_of(cdr(base[8]))==t_cons)){
goto T679;}
if(!(type_of(cadr(base[8]))==t_fixnum||
type_of(cadr(base[8]))==t_bignum||
type_of(cadr(base[8]))==t_ratio||
type_of(cadr(base[8]))==t_shortfloat||
type_of(cadr(base[8]))==t_longfloat||
type_of(cadr(base[8]))==t_complex)){
goto T679;}
base[9]= VV[5];
base[10]= cadr(base[8]);
base[11]= VV[3];
vs_top=(vs_base=base+9)+3;
Lmonotonically_nondecreasing();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T680;}
T679:;
base[9]= VV[80];
base[10]= base[8];
(void)simple_symlispcall_no_event(VV[139],base+9,2);
goto T678;
T680:;
{object V50= car(base[8]);
if((V50!= VV[81]))goto T693;
base[9]= list(2,VV[81],cadr(base[8]));
base[2]= make_cons(base[9],base[2]);
goto T678;
T693:;
if((V50!= VV[82]))goto T695;
(VV[6]->s.s_dbind)= cadr(base[8]);
base[9]= list(2,VV[82],cadr(base[8]));
base[2]= make_cons(base[9],base[2]);
goto T678;
T695:;
if((V50!= VV[146])
&& (V50!= VV[147]))goto T699;
goto T678;
T699:;
base[9]= VV[83];
base[10]= car(base[8]);
(void)simple_symlispcall_no_event(VV[139],base+9,2);}
T678:;
base[7]= cdr(base[7]);
base[8]= car(base[7]);
goto T669;
T665:;
if((V49!= VV[153]))goto T707;
if(endp(cdr((V48)))){
goto T708;}
if(!(type_of(cadr((V48)))==t_cons)){
goto T708;}
if(!(caadr((V48))==VV[59])){
goto T708;}
if(!(endp(cdadr((V48))))){
goto T709;}
T708:;
base[7]= VV[84];
base[8]= (V48);
(void)simple_symlispcall_no_event(VV[139],base+7,2);
goto T664;
T709:;
{object V51;
object V52;
V51= cddr((V48));
V52= car((V51));
T722:;
if(!(endp((V51)))){
goto T723;}
goto T664;
T723:;
base[7]= (V52);
base[8]= cadadr((V48));
base[9]= cddadr((V48));
vs_top=(vs_base=base+7)+3;
L11();
vs_top=sup;
V51= cdr((V51));
V52= car((V51));
goto T722;}
T707:;
if((V49!= VV[59]))goto T736;
if(endp(cdr((V48)))){
goto T737;}
if(endp(cddr((V48)))){
goto T737;}
if(type_of(cadr((V48)))==t_symbol){
goto T738;}
T737:;
base[7]= VV[85];
base[8]= (V48);
(void)simple_symlispcall_no_event(VV[139],base+7,2);
goto T664;
T738:;
base[7]= cadr((V48));
base[8]= caddr((V48));
base[9]= cdddr((V48));
vs_top=(vs_base=base+7)+3;
L11();
vs_top=sup;
goto T664;
T736:;
if((V49!= VV[86]))goto T749;
{object V53;
object V54;
V53= cdr((V48));
V54= car((V53));
T753:;
if(!(endp((V53)))){
goto T754;}
goto T664;
T754:;
if(!(type_of((V54))==t_symbol)){
goto T760;}
base[7]= list(2,VV[86],(V54));
base[2]= make_cons(base[7],base[2]);
base[7]= (V54);
base[8]= (VV[28]->s.s_dbind);
(VV[28]->s.s_dbind)= simple_symlispcall_no_event(VV[197],base+7,2);
goto T758;
T760:;
base[7]= VV[87];
base[8]= (V54);
(void)simple_symlispcall_no_event(VV[139],base+7,2);
T758:;
V53= cdr((V53));
V54= car((V53));
goto T753;}
T749:;
if((V49!= VV[88]))goto T774;
{object V55;
object V56;
V55= cdr((V48));
V56= car((V55));
T778:;
if(!(endp((V55)))){
goto T779;}
goto T664;
T779:;
if(!(type_of((V56))==t_symbol)){
goto T785;}
base[7]= list(2,VV[88],(V56));
base[2]= make_cons(base[7],base[2]);
(VV[28]->s.s_dbind)= make_cons((V56),(VV[28]->s.s_dbind));
goto T783;
T785:;
base[7]= VV[89];
base[8]= (V56);
(void)simple_symlispcall_no_event(VV[139],base+7,2);
T783:;
V55= cdr((V55));
V56= car((V55));
goto T778;}
T774:;
if((V49!= VV[155]))goto T797;
{object V57;
object V58;
V57= cdr((V48));
V58= car((V57));
T801:;
if(!(endp((V57)))){
goto T802;}
goto T664;
T802:;
if(!(type_of((V58))==t_symbol)){
goto T808;}
{object x= (V58),V59= (VV[52]->s.s_dbind);
while(!endp(V59))
if(eql(x,V59->c.c_car)){
goto T806;
}else V59=V59->c.c_cdr;}
(VV[52]->s.s_dbind)= make_cons((V58),(VV[52]->s.s_dbind));
goto T806;
T808:;
base[7]= VV[90];
base[8]= (V58);
(void)simple_symlispcall_no_event(VV[139],base+7,2);
T806:;
V57= cdr((V57));
V58= car((V57));
goto T801;}
T797:;
{object x= car((V48)),V60= (VV[52]->s.s_dbind);
while(!endp(V60))
if(eql(x,V60->c.c_car)){
goto T664;
}else V60=V60->c.c_cdr;}
base[7]= VV[91];
base[8]= car((V48));
(void)simple_symlispcall_no_event(VV[139],base+7,2);}
T664:;
V47= cdr((V47));
V48= car((V47));
goto T659;}
T655:;
base[7]= base[1];
base[1]= simple_symlispcall_no_event(VV[196],base+7,1);
base[7]= list(4,VV[92],cadr(base[1]),base[2],base[1]);
vs_top=(vs_base=base+7)+1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for C2DECL-BODY */
static L24()
{ register object *base=vs_base;
register object *sup=base+VM25;
vs_reserve(VM25);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
bds_bind(VV[1],symbol_value(VV[1]));
bds_bind(VV[0],symbol_value(VV[0]));
bds_bind(VV[2],symbol_value(VV[2]));
bds_bind(VV[28],symbol_value(VV[28]));
bds_bind(VV[6],symbol_value(VV[6]));
{object V61;
object V62;
V61= base[0];
V62= car((V61));
T836:;
if(!(endp((V61)))){
goto T837;}
goto T832;
T837:;
{object V63= car((V62));
if((V63!= VV[81]))goto T842;
{int V64;
V64= fix(cadr((V62)));
(VV[1]->s.s_dbind)= ((V64)>=(1)?Ct:Cnil);
(VV[0]->s.s_dbind)= ((V64)>=(2)?Ct:Cnil);
(VV[2]->s.s_dbind)= ((V64)>=(3)?Ct:Cnil);
goto T841;}
T842:;
if((V63!= VV[82]))goto T849;
(VV[6]->s.s_dbind)= cadr((V62));
goto T841;
T849:;
if((V63!= VV[88]))goto T851;
(VV[28]->s.s_dbind)= make_cons(cadr((V62)),(VV[28]->s.s_dbind));
goto T841;
T851:;
if((V63!= VV[86]))goto T853;
base[7]= cadr((V62));
base[8]= (VV[28]->s.s_dbind);
(VV[28]->s.s_dbind)= simple_symlispcall_no_event(VV[197],base+7,2);
goto T841;
T853:;
(void)simple_symlispcall_no_event(VV[198],base+7,0);}
T841:;
V61= cdr((V61));
V62= car((V61));
goto T836;}
T832:;
base[7]= base[1];
symlispcall_no_event(VV[199],base+7,1);
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for CHECK-VDECL */
static L25()
{ register object *base=vs_base;
register object *sup=base+VM26;
vs_reserve(VM26);
check_arg(3);
vs_top=sup;
TTL:;
{object V65;
object V66;
V65= base[1];
V66= car((V65));
T867:;
if(!(endp((V65)))){
goto T868;}
goto T863;
T868:;
{object x= car((V66)),V67= base[0];
while(!endp(V67))
if(eql(x,V67->c.c_car)){
goto T872;
}else V67=V67->c.c_cdr;}
base[3]= VV[95];
base[4]= car((V66));
(void)simple_symlispcall_no_event(VV[142],base+3,2);
T872:;
V65= cdr((V65));
V66= car((V65));
goto T867;}
T863:;
{object V68;
object V69;
V68= base[2];
V69= car((V68));
T885:;
if(!(endp((V68)))){
goto T886;}
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T886:;
{object x= (V69),V70= base[0];
while(!endp(V70))
if(eql(x,V70->c.c_car)){
goto T890;
}else V70=V70->c.c_cdr;}
base[3]= VV[96];
base[4]= (V69);
(void)simple_symlispcall_no_event(VV[142],base+3,2);
T890:;
V68= cdr((V68));
V69= car((V68));
goto T885;}
}
/* function definition for PROCLAMATION */
static L26()
{ register object *base=vs_base;
register object *sup=base+VM27;
vs_reserve(VM27);
check_arg(1);
vs_top=sup;
TTL:;
{object V71= car(base[0]);
if((V71!= VV[143]))goto T900;
{object V72;
object V73;
V72= cdr(base[0]);
V73= car((V72));
T904:;
if(!(endp((V72)))){
goto T905;}
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;
T905:;
if(!(type_of((V73))==t_symbol)){
goto T911;}
base[1]= (V73);
vs_top=(vs_base=base+1)+1;
siLspecialp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T909;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T911:;
base[1]= VV[97];
base[2]= (V73);
(void)simple_symlispcall_no_event(VV[139],base+1,2);
T909:;
V72= cdr((V72));
V73= car((V72));
goto T904;}
T900:;
if((V71!= VV[145]))goto T923;
base[1]= cdr(base[0]);
base[2]= car(base[1]);
T927:;
if(!(endp(base[1]))){
goto T928;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T928:;
if(!(type_of(base[2])==t_symbol)){
goto T932;}
base[2]= list(2,base[2],VV[3]);
T932:;
if(!(type_of(base[2])==t_cons)){
goto T937;}
if(!(type_of(cdr(base[2]))==t_cons)){
goto T937;}
if(!(type_of(cadr(base[2]))==t_fixnum||
type_of(cadr(base[2]))==t_bignum||
type_of(cadr(base[2]))==t_ratio||
type_of(cadr(base[2]))==t_shortfloat||
type_of(cadr(base[2]))==t_longfloat||
type_of(cadr(base[2]))==t_complex)){
goto T937;}
base[3]= VV[5];
base[4]= cadr(base[2]);
base[5]= VV[3];
vs_top=(vs_base=base+3)+3;
Lmonotonically_nondecreasing();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T938;}
T937:;
base[3]= VV[98];
base[4]= base[2];
(void)simple_symlispcall_no_event(VV[139],base+3,2);
goto T936;
T938:;
{object V74= car(base[2]);
if((V74!= VV[81]))goto T951;
{object V75= cadr(base[2]);
if((symbol_value(VV[1]))!=Cnil){
goto T956;}
base[3]= VV[5];
goto T954;
T956:;
if((symbol_value(VV[0]))!=Cnil){
goto T959;}
base[3]= VV[30];
goto T954;
T959:;
if((symbol_value(VV[2]))!=Cnil){
goto T962;}
base[3]= VV[56];
goto T954;
T962:;
base[3]= VV[3];
T954:;
if(number_compare(V75,base[3])==0){
goto T936;}}
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T951:;
if((V74!= VV[82]))goto T964;
if(number_compare(cadr(base[2]),symbol_value(VV[6]))==0){
goto T936;}
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T964:;
if((V74!= VV[146]))goto T967;
if(number_compare(cadr(base[2]),symbol_value(VV[4]))==0){
goto T936;}
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T967:;
if((V74!= VV[147]))goto T970;
base[3]= number_minus(VV[3],cadr(base[2]));
if(number_compare(base[3],symbol_value(VV[4]))==0){
goto T936;}
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T970:;
base[3]= VV[99];
base[4]= car(base[2]);
(void)simple_symlispcall_no_event(VV[139],base+3,2);}
T936:;
base[1]= cdr(base[1]);
base[2]= car(base[1]);
goto T927;
T923:;
if((V71!= VV[148]))goto T980;
if(!(type_of(cdr(base[0]))==t_cons)){
goto T982;}
base[3]= cadr(base[0]);
base[1]= simple_symlispcall_no_event(VV[138],base+3,1);
base[2]= Cnil;
{object V76;
object V77;
V76= cddr(base[0]);
V77= car((V76));
T989:;
if(!(endp((V76)))){
goto T990;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T990:;
if(!(type_of((V77))==t_symbol)){
goto T996;}
base[2]= get((V77),VV[67],Cnil);
if((base[2])==Cnil){
goto T998;}
if(equal(base[2],base[1])){
goto T994;}
T998:;
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T996:;
base[3]= VV[100];
base[4]= (V77);
(void)simple_symlispcall_no_event(VV[139],base+3,2);
T994:;
V76= cdr((V76));
V77= car((V76));
goto T989;}
T982:;
base[1]= VV[101];
base[2]= base[0];
symlispcall_no_event(VV[139],base+1,2);
return;
T980:;
if((V71!= VV[149])
&& (V71!= VV[150])
&& (V71!= VV[151])
&& (V71!= VV[152]))goto T1012;
base[3]= car(base[0]);
base[1]= simple_symlispcall_no_event(VV[138],base+3,1);
base[2]= Cnil;
{object V78;
object V79;
V78= cdr(base[0]);
V79= car((V78));
T1018:;
if(!(endp((V78)))){
goto T1019;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T1019:;
if(!(type_of((V79))==t_symbol)){
goto T1025;}
base[2]= get((V79),VV[67],Cnil);
if((base[2])==Cnil){
goto T1027;}
if(equal(base[2],base[1])){
goto T1023;}
T1027:;
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T1025:;
base[3]= VV[102];
base[4]= (V79);
(void)simple_symlispcall_no_event(VV[139],base+3,2);
T1023:;
V78= cdr((V78));
V79= car((V78));
goto T1018;}
T1012:;
if((V71!= VV[153]))goto T1039;
if(endp(cdr(base[0]))){
goto T1040;}
if(!(type_of(cadr(base[0]))==t_cons)){
goto T1040;}
if(!(caadr(base[0])==VV[59])){
goto T1040;}
if(!(endp(cdadr(base[0])))){
goto T1041;}
T1040:;
base[1]= VV[103];
base[2]= base[0];
symlispcall_no_event(VV[139],base+1,2);
return;
T1041:;
{object V80;
object V81;
V80= cddr(base[0]);
V81= car((V80));
T1054:;
if(!(endp((V80)))){
goto T1055;}
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;
T1055:;
if((get((V81),VV[43],Cnil))==Cnil){
goto T1060;}
base[2]= cadadr(base[0]);
vs_top=(vs_base=base+2)+1;
L8();
vs_top=sup;
base[1]= vs_base[0];
base[2]= get((V81),VV[41],Cnil);
if(!(equal(base[1],base[2]))){
goto T1060;}
base[2]= cddadr(base[0]);
vs_top=(vs_base=base+2)+1;
L9();
vs_top=sup;
base[1]= vs_base[0];
base[2]= get((V81),VV[42],Cnil);
if(equal(base[1],base[2])){
goto T1059;}
T1060:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T1059:;
V80= cdr((V80));
V81= car((V80));
goto T1054;}
T1039:;
if((V71!= VV[59]))goto T1077;
if(endp(cdr(base[0]))){
goto T1078;}
if(!(endp(cddr(base[0])))){
goto T1079;}
T1078:;
base[1]= VV[104];
base[2]= base[0];
symlispcall_no_event(VV[139],base+1,2);
return;
T1079:;
if((get(cadr(base[0]),VV[43],Cnil))!=Cnil){
goto T1085;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T1085:;
base[2]= caddr(base[0]);
vs_top=(vs_base=base+2)+1;
L8();
vs_top=sup;
base[1]= vs_base[0];
base[2]= get(cadr(base[0]),VV[41],Cnil);
if(equal(base[1],base[2])){
goto T1087;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T1087:;
base[2]= cdddr(base[0]);
vs_top=(vs_base=base+2)+1;
L9();
vs_top=sup;
base[1]= vs_base[0];
base[2]= get(cadr(base[0]),VV[42],Cnil);
base[3]= (equal(base[1],base[2])?Ct:Cnil);
vs_top=(vs_base=base+3)+1;
return;
T1077:;
if((V71!= VV[86]))goto T1095;
{object V82;
object V83;
V82= cdr(base[0]);
V83= car((V82));
T1099:;
if(!(endp((V82)))){
goto T1100;}
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;
T1100:;
if(!(type_of((V83))==t_symbol)){
goto T1106;}
if((get((V83),VV[53],Cnil))==Cnil){
goto T1104;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T1106:;
base[1]= VV[105];
base[2]= (V83);
(void)simple_symlispcall_no_event(VV[139],base+1,2);
T1104:;
V82= cdr((V82));
V83= car((V82));
goto T1099;}
T1095:;
if((V71!= VV[88]))goto T1117;
{object V84;
object V85;
V84= cdr(base[0]);
V85= car((V84));
T1121:;
if(!(endp((V84)))){
goto T1122;}
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;
T1122:;
if(!(type_of((V85))==t_symbol)){
goto T1128;}
if((get((V85),VV[53],Cnil))!=Cnil){
goto T1126;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T1128:;
base[1]= VV[106];
base[2]= (V85);
(void)simple_symlispcall_no_event(VV[139],base+1,2);
T1126:;
V84= cdr((V84));
V85= car((V84));
goto T1121;}
T1117:;
if((V71!= VV[78])
&& (V71!= VV[154]))goto T1139;
{object V86;
object V87;
V86= cdr(base[0]);
V87= car((V86));
T1143:;
if(!(endp((V86)))){
goto T1144;}
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;
T1144:;
if(type_of((V87))==t_symbol){
goto T1148;}
base[1]= VV[107];
base[2]= (V87);
(void)simple_symlispcall_no_event(VV[139],base+1,2);
T1148:;
V86= cdr((V86));
V87= car((V86));
goto T1143;}
T1139:;
if((V71!= VV[155]))goto T1158;
{object V88;
object V89;
V88= cdr(base[0]);
V89= car((V88));
T1162:;
if(!(endp((V88)))){
goto T1163;}
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;
T1163:;
if(!(type_of((V89))==t_symbol)){
goto T1169;}
{object x= (V89),V90= symbol_value(VV[52]);
while(!endp(V90))
if(eql(x,V90->c.c_car)){
goto T1167;
}else V90=V90->c.c_cdr;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T1169:;
base[1]= VV[108];
base[2]= (V89);
(void)simple_symlispcall_no_event(VV[139],base+1,2);
T1167:;
V88= cdr((V88));
V89= car((V88));
goto T1162;}
T1158:;
if((V71== VV[156])
|| (V71== VV[157])
|| (V71== VV[158])
|| (V71== VV[159])
|| (V71== VV[160]))goto T1181;
if((V71== VV[150])
|| (V71== VV[161])
|| (V71== VV[162])
|| (V71== VV[163])
|| (V71== VV[164]))goto T1181;
if((V71== VV[165])
|| (V71== VV[149])
|| (V71== VV[166])
|| (V71== VV[167])
|| (V71== VV[168]))goto T1181;
if((V71== VV[169])
|| (V71== VV[170])
|| (V71== VV[152])
|| (V71== Cnil)
|| (V71== VV[171]))goto T1181;
if((V71== VV[172])
|| (V71== VV[173])
|| (V71== VV[174])
|| (V71== VV[175])
|| (V71== VV[176]))goto T1181;
if((V71== VV[177])
|| (V71== VV[178])
|| (V71== VV[179])
|| (V71== VV[151])
|| (V71== VV[180]))goto T1181;
if((V71== VV[181])
|| (V71== VV[182])
|| (V71== VV[183])
|| (V71== VV[184])
|| (V71== VV[185]))goto T1181;
if((V71== VV[186])
|| (V71== VV[187])
|| (V71== VV[188])
|| (V71== VV[189])
|| (V71== Ct))goto T1181;
if((V71!= VV[190])
&& (V71!= VV[191])
&& (V71!= VV[192]))goto T1180;
T1181:;
base[2]= car(base[0]);
base[1]= simple_symlispcall_no_event(VV[138],base+2,1);
{object V91;
object V92;
V91= cdr(base[0]);
V92= car((V91));
T1187:;
if(!(endp((V91)))){
goto T1188;}
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T1188:;
if(!(type_of((V92))==t_symbol)){
goto T1194;}
base[2]= get((V92),VV[67],Cnil);
if(equal(base[2],base[1])){
goto T1192;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T1194:;
base[2]= VV[109];
base[3]= (V92);
(void)simple_symlispcall_no_event(VV[139],base+2,2);
T1192:;
V91= cdr((V91));
V92= car((V91));
goto T1187;}
T1180:;
{object x= car(base[0]),V93= symbol_value(VV[52]);
while(!endp(V93))
if(eql(x,V93->c.c_car)){
goto T1207;
}else V93=V93->c.c_cdr;}
base[1]= VV[110];
base[2]= car(base[0]);
symlispcall_no_event(VV[139],base+1,2);
return;
T1207:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;}
}